HA$PBExportHeader$w_sysmain.srw
forward
global type w_sysmain from window
end type
type mdi_1 from mdiclient within w_sysmain
end type
type p_1 from picture within w_sysmain
end type
type uo_statusbar from u_statusbar within w_sysmain
end type
type uo_treeview from u_cst_treeview within w_sysmain
end type
type uo_toolbarstrip from u_cst_toolbarstrip within w_sysmain
end type
type uo_powerdock from u_cst_powerdock within w_sysmain
end type
type ddlb_theme from dropdownlistbox within w_sysmain
end type
end forward

global type w_sysmain from window
boolean visible = false
integer width = 3707
integer height = 2404
boolean titlebar = true
string title = "SISTEMA INTEGRADO DE RECURSOS Y APLICACIONES V2.0"
string menuname = "m_main"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
windowtype windowtype = mdi!
windowstate windowstate = maximized!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
windowanimationstyle openanimation = centeranimation!
windowanimationstyle closeanimation = centeranimation!
event hide pbm_hidewindow
event ue_post_open ( )
event ue_post_logon ( )
event ue_about ( )
mdi_1 mdi_1
p_1 p_1
uo_statusbar uo_statusbar
uo_treeview uo_treeview
uo_toolbarstrip uo_toolbarstrip
uo_powerdock uo_powerdock
ddlb_theme ddlb_theme
end type
global w_sysmain w_sysmain

type variables
//u_cst_test1 iuo_1
//u_cst_test2 iuo_2
//u_cst_test3 iuo_3
//u_cst_test4 iuo_4
//u_cst_test5 iuo_5
//u_cst_test6 iuo_6
//u_cst_test7 iuo_7

u_cst_home  iuo_home
//
//u_cst_mle uo_mle1
//u_cst_mle uo_mle2
//u_cst_mle uo_mle3
//u_cst_mle uo_mle4
//u_cst_mle uo_mle5

//w_tabtest iw_windowtest
//w_tabtest iw_windowtest2
integer ii_tabindex
datastore ids_menuid
userobject iuo_userObject[]
//u_cst_grillamaincabedet iuo_grillamain
u_cst_grillamain iuo_grillamain
powerdockdocument ipowerdocument[]

s_parm istr_parm
end variables

forward prototypes
public subroutine of_run_userobject (string as_menu)
public subroutine of_close_tab ()
public subroutine of_procesar (string as_msj)
end prototypes

event ue_post_open();//uo_treeview.tv_main.Post Event ue_gmenu()

//uo_treeview.Post Event ue_populate()
Close(w_splash)

Post Event ue_post_logon()


end event

event ue_post_logon();open(w_logon)
end event

event ue_about();uo_PowerDock.of_OpenDocument(iuo_home, 'About','Help!')
end event

public subroutine of_run_userobject (string as_menu);string ls_titulo,ls_imagen,ls_userobject,ls_tabtitulo,ls_tipo,ls_window
long ll_count,ll_fila,ll_resul
integer li_window
SetPointer(HourGlass!)

window w_to_open
s_parm lstr_parm

ids_menuid = Create DataStore
ids_menuid.DataObject = "d_mmenu_id"
ids_menuid.settransobject( sqlca)
ids_menuid.retrieve(as_menu )
commit;
//open(w_mmovimiento_param)
//RETURN

ls_userobject 				  = ids_menuid.object.tUserObject[1]
ls_titulo 						  = ids_menuid.object.tDesc[1]
ls_imagen  					   = ids_menuid.object.tTabImg[1]
if left(trim(ls_imagen),1)='\' then ls_imagen =gs_unidad+ls_imagen
ls_window  					   = ids_menuid.object.twindow[1]
li_window  					   = ids_menuid.object.bwindow[1]
istr_parm.ads_menu 	       = ids_menuid

if isnull(li_window)  then li_window = 0
//istr_parm.auo_powerdock = uo_powerdock
//ls_tipo = ids_mainmenuid.object.cTabMainTipo[1]
 //istr_parm.as_UcstTab =   ids_mainmenuid.object.cUcstGrilla[1]
// istr_parm.as_tipotab='L'
istr_parm.auo_powerdock = uo_powerdock
istr_parm.auo_grillamain= iuo_grillamain
//if li_window = 1 then 
//	window w_to_open
//	istr_parm.string_parm[1]='N' 
//	OpenWithParm(w_to_open, istr_parm,ls_window)	
//else

	if ls_userobject = '' or isnull(ls_userobject) then return
	
	ll_count = uo_PowerDock.of_getdocumentcount( ) 
	
	ll_resul = uo_PowerDock.of_getdocumentcollection(ipowerdocument[]) 
	For ll_fila = 1 to ll_count 
		ls_tabtitulo = ipowerdocument[ll_fila].text
		if ls_titulo = ls_tabtitulo then
			
			uo_PowerDock.of_ActivateDocument( ipowerdocument[ll_fila].userobject)
//			if li_window = 1 then 
//				istr_parm.string_parm[1]='P' 
//				OpenWithParm(w_to_open, istr_parm,ls_window)	
////				lstr_parm=message.powerobjectparm
////				if lstr_parm.char_parm[1]='0' then return
////				iuo_grillamain =lstr_parm.auo_grillamaincabedet
////				iuo_grillamain.Dynamic of_setparam(lstr_parm.integer_parm[1],lstr_parm.integer_parm[2],lstr_parm.integer_parm[3])
////				iuo_grillamain.Dynamic Event  ue_actualizar() 
////				f_msg('mensaje ok',4)
//				
//			end if
			
			Return
		end if
	Next
// cuando no existe abierto	el tab
    If li_window = 2 Then 
//		if isvalid(w_to_open) then 
//			w_to_open.show( ); return 
//		end if
		Open(w_to_open, ls_window)
	elseif li_window = 1 Then 
		istr_parm.string_parm  [1]='N' 
		istr_parm.integer_parm[1]=1
		istr_parm.integer_parm[2]=1
		istr_parm.integer_parm[3]=month(today())
		istr_parm.integer_parm[4]=year(today())
		OpenWithParm(w_to_open, istr_parm,ls_window)	
		lstr_parm=message.powerobjectparm
		If lstr_parm.char_parm[1]='0' Then return
		
			istr_parm.integer_parm[1]=lstr_parm.integer_parm[1]
			istr_parm.integer_parm[2]=lstr_parm.integer_parm[2]
			istr_parm.integer_parm[3]=lstr_parm.integer_parm[3]
			istr_parm.integer_parm[4]=lstr_parm.integer_parm[4]
			ii_tabindex++
			ls_titulo = ls_titulo  + ''
			uo_PowerDock.of_opendocument( iuo_userObject[ii_tabindex],istr_parm,ls_titulo ,ls_imagen,ls_userobject)
			//	iuo_grillamain.dynamic of_setparam(lstr_parm.integer_parm[1],lstr_parm.integer_parm[2],lstr_parm.integer_parm[3])
//			f_msg('mensaje ok111',4)
		
	Else
		ii_tabindex++
		uo_PowerDock.of_opendocument( iuo_userObject[ii_tabindex],istr_parm,ls_titulo ,ls_imagen,ls_userobject)		
	//	uo_PowerDock.of_ActivateDocument(iuo_userObject[ii_tabindex])
	End if
	
SetPointer(Arrow!)	

end subroutine

public subroutine of_close_tab ();uo_PowerDock.of_closealldocuments( )
end subroutine

public subroutine of_procesar (string as_msj);//f_msg(as_msj,4)
string ls_comando
integer li_retu
 
choose case as_msj
	case 'm_backupbasedatos'
		ls_comando = '..\\sqlmaint\ExpressMaint.exe -S ' + gs_Server+' -D '+gs_Database+' -T DB -R '+gs_rutaApp+'\sqlmaint\reports -RU WEEKS -RV 1 -B '+gs_rutaApp+'\sqlmaint\bk -BU WEEKS -BV 1 -V'
//		f_msg(ls_comando,4)
	    if run(ls_comando,Minimized! ) =1 then
			f_msg('El proceso de Backup se realizo satisfactoriamente',4)
		else
			f_msg('error en realizar el backup',1)
		end if
//	uo_syncproc luo_sync
//	luo_sync = CREATE uo_syncproc
//	luo_sync.of_setwindow('minimize')
//	li_retu = luo_sync.of_RunAndWait(ls_comando)
//	if li_retu <> 1 THEN
//		messagebox('Recepci$$HEX1$$f300$$ENDHEX$$n', 'Problemas en la creaci$$HEX1$$f300$$ENDHEX$$n del archivo ')
//		return //-1
//	END IF
//	DESTROY luo_sync 
end choose
end subroutine

event resize;//uo_toolbarstrip.Width = THIS.WorkSpaceWidth() - 12
//uo_PowerDock.Resize(THIS.WorkSpaceWidth() - 8,THIS.WorkSpaceHeight() - MDI_1.MicroHelpHeight	- uo_toolbarstrip.Height - 10)
//


p_1.move(this.width - 900 , 0)
uo_toolbarstrip.Width = THIS.WorkSpaceWidth() - 12
uo_PowerDock.Resize(THIS.WorkSpaceWidth() - 8, THIS.WorkSpaceHeight() - MDI_1.MicroHelpHeight	- uo_toolbarstrip.Height - 10 - uo_statusbar.Height)

uo_statusbar.Event ue_Refresh()
end event

on w_sysmain.create
if this.MenuName = "m_main" then this.MenuID = create m_main
this.mdi_1=create mdi_1
this.p_1=create p_1
this.uo_statusbar=create uo_statusbar
this.uo_treeview=create uo_treeview
this.uo_toolbarstrip=create uo_toolbarstrip
this.uo_powerdock=create uo_powerdock
this.ddlb_theme=create ddlb_theme
this.Control[]={this.mdi_1,&
this.p_1,&
this.uo_statusbar,&
this.uo_treeview,&
this.uo_toolbarstrip,&
this.uo_powerdock,&
this.ddlb_theme}
end on

on w_sysmain.destroy
if IsValid(MenuID) then destroy(MenuID)
destroy(this.mdi_1)
destroy(this.p_1)
destroy(this.uo_statusbar)
destroy(this.uo_treeview)
destroy(this.uo_toolbarstrip)
destroy(this.uo_powerdock)
destroy(this.ddlb_theme)
end on

event open;//timer(0.10 , this)
title = '[SISTEMA INTEGRADO DE RECURSOS Y APLICACIONES V2.0]  /  [UNIDAD: '  + upper(gs_unidad) +']'

string ls_ruta,ls_ruta_logo
ls_ruta= gs_Unidad+"\RecursosApp.ini"
ls_ruta_logo	=	ProfileString(ls_ruta , "img", "logon", "")
p_1.picturename=gs_Unidad + ls_ruta_logo


uo_PowerDock.of_SetMenu(m_main.m_window) 
//gs_directorioActual = GetCurrentDirectory( )
//uo_PowerDock.set
uo_PowerDock.of_SetTheme('Blue')
uo_toolbarstrip.of_SetTheme('Blue')


uo_PowerDock.of_AddDockItem(uo_PowerDock.LEFT, uo_treeview, "Lista de Aplicaciones ", 'TreeView!')

////Open some documents (i.e. windows)
//uo_PowerDock.of_OpenDocument(iuo_home, 'About','Help!')
//uo_PowerDock.of_OpenDocument(iuo_8, 'GroupBox','GroupBox!')
//uo_PowerDock.of_OpenDocument(iuo_6, 'Tab Control','Tab!')
//uo_PowerDock.of_OpenDocument(iuo_3, 'Shortcutbar','ListBox!')
//uo_PowerDock.of_OpenDocument(iuo_1, 'Toolbarstrip','SQL!')
//uo_PowerDock.of_OpenDocument(iuo_4, 'Buttonlistbar','ArrangeIcons!')
//uo_PowerDock.of_OpenDocument(iuo_2, 'Statictext','StaticText!')
//uo_PowerDock.of_OpenDocument(iuo_7, 'XPListBar','TreeView!')
//uo_PowerDock.of_OpenDocument(iw_windowtest, 'Window','Window!')
//uo_PowerDock.of_OpenDocument(iw_windowtest2, 'Window','Window!')
//
////Activate a document
//uo_PowerDock.of_ActivateDocument(iuo_5)
//
////Add items to the dock windows
//uo_PowerDock.of_AddDockItem(uo_PowerDock.RIGHT, uo_mle1, "Right", 'ListBox!')
//uo_PowerDock.of_AddDockItem(uo_PowerDock.LEFT, uo_xplistbar, "XPListBar", 'TreeView!')
//uo_PowerDock.of_AddDockItem(uo_PowerDock.LEFT, uo_mle2, "LEFT", 'ListBox!')
//uo_PowerDock.of_AddDockItem(uo_PowerDock.BOTTOM, uo_mle3, "Output", 'ListBox!')
//uo_PowerDock.of_AddDockItem(uo_PowerDock.BOTTOM, uo_mle4, "Errors", 'ListBox!')
//uo_PowerDock.of_AddDockItem(uo_PowerDock.TOP, uo_mle5, "Top", 'ListBox!')
//
////Set focus to specific dock items
uo_PowerDock.of_SetDockItemFocus(uo_treeview)
//
////Auto dock the left dock window

//
//Set some initial sizes
uo_PowerDock.of_SetDockSize(uo_PowerDock.LEFT, 1200)
uo_PowerDock.of_SetDock(uo_PowerDock.LEFT, TRUE)
//uo_PowerDock.of_SetDockSize(uo_PowerDock.RIGHT, 5000)
//uo_PowerDock.of_SetDockSize(uo_PowerDock.TOP, 500)
//uo_PowerDock.of_SetDockSize(uo_PowerDock.BOTTOM, 500)
//
//
//
////************************************************************
////		INITIALIZATION CODE FOR THE OTHER CONTROLS
////************************************************************
////Toolbar Strip
//uo_toolbarstrip.of_AddItem('Open', 'Open!')
//uo_toolbarstrip.of_AddItem('Save', 'Save!')
//uo_toolbarstrip.of_AddSeparator()
//uo_toolbarstrip.of_AddItem('Print', 'Print!')
//uo_toolbarstrip.of_AddItem('Preview', 'Preview!')
//uo_toolbarstrip.of_AddSeparator()
//uo_toolbarstrip.of_AddItem('Cut','Cut!')
//uo_toolbarstrip.of_AddItem('Copy','Copy!')
//uo_toolbarstrip.of_AddItem('Paste','Paste!')
//uo_toolbarstrip.of_AddSeparator()
//uo_toolbarstrip.of_AddObject('Themes', ddlb_theme)
//
//CHOOSE CASE uo_toolbarstrip.il_CurrentTheme
//	CASE uo_toolbarstrip.BLUE
//		ddlb_theme.SelectItem(1)
//		ddlb_theme.Event SelectionChanged(1)
//	CASE uo_toolbarstrip.SILVER
//		ddlb_theme.SelectItem(2)
//		ddlb_theme.Event SelectionChanged(2)
//	CASE uo_toolbarstrip.OLIVE
//		ddlb_theme.SelectItem(3)
//		ddlb_theme.Event SelectionChanged(3)
//	CASE ELSE
//		ddlb_theme.SelectItem(4)
//		ddlb_theme.Event SelectionChanged(4)
//END CHOOSE
//
//uo_toolbarstrip.of_AddItem('Exit', 'Exit!', 'Close Winodw', uo_toolbarstrip.RIGHT)
//
//
//
////XPListBar
//Long ll_parent
//
//ll_parent = uo_xplistbar.of_AddGroup('General', 'Mail.ico', uo_xplistbar.SPECIAL)
//uo_xplistbar.of_AddLink('Display Image in Header', 'Custom001!', ll_parent)
//uo_xplistbar.of_AddLink('Hide Image in Header', 'Custom002!', ll_parent)
//uo_xplistbar.of_AddLink('Display Text Shadow', 'Custom003!', ll_parent)
//uo_xplistbar.of_AddLink('Hide Text Shadow', 'Custom004!', ll_parent)
//uo_xplistbar.of_AddLink('Display Close Button', 'Custom029!', ll_parent)
//uo_xplistbar.of_AddLink('Hide Close Button', 'Custom030!', ll_parent)
//uo_xplistbar.of_AddLine(ll_parent)
//uo_xplistbar.of_AddLink('Enable Calendar', 'Custom027!', ll_parent)
//uo_xplistbar.of_AddLink('Disable Calendar', 'Custom028!', ll_parent)
//
//ll_parent = uo_xplistbar.of_AddGroup('Style', '')
//uo_xplistbar.of_AddLink('XP', 'Average!', ll_parent)
//uo_xplistbar.of_AddLink('Vista Embossed', 'Custom005!', ll_parent)
//uo_xplistbar.of_AddLink('Vista Original', 'Custom006!', ll_parent)
//uo_xplistbar.of_AddLink('Vista Glass', 'Custom007!', ll_parent)
//uo_xplistbar.of_AddLink('Custom', 'Custom008!', ll_parent)
//
//ll_parent = uo_xplistbar.of_AddGroup('Theme', '')
//uo_xplistbar.of_AddLink('Blue', 'Custom009!', ll_parent)
//uo_xplistbar.of_AddLink('Olive', 'Custom010!', ll_parent)
//uo_xplistbar.of_AddLink('Silver', 'Custom011!', ll_parent)
//uo_xplistbar.of_AddLink('Windows Classic', 'Custom012!', ll_parent)
//uo_xplistbar.of_AddLine(ll_parent)
//uo_xplistbar.of_AddLink('Windows 2000', 'Custom013!', ll_parent)
//
//ll_parent = uo_xplistbar.of_AddGroup('Size', 'calendar.ico')
//uo_xplistbar.of_AddLink('16X16', 'Custom016!', ll_parent)
//uo_xplistbar.of_AddLink('24X24', 'Custom017!', ll_parent)
//
//ll_parent = uo_xplistbar.of_AddGroup('Pattern', '')
//uo_xplistbar.of_AddLink('None', 'Custom018!', ll_parent)
//uo_xplistbar.of_AddLink('Solid Circle', 'Custom019!', ll_parent)
//uo_xplistbar.of_AddLink('Hollow Circle', 'Custom020!', ll_parent)
//uo_xplistbar.of_AddLink('Solid Square', 'Custom021!', ll_parent)
//uo_xplistbar.of_AddLink('Hollow Square', 'Custom022!', ll_parent)
//uo_xplistbar.of_AddLink('Star', 'Custom023!', ll_parent)
//uo_xplistbar.of_AddLink('Wave', 'Custom024!', ll_parent)
//uo_xplistbar.of_AddLink('Bar', 'Custom025!', ll_parent)
//uo_xplistbar.of_AddLink('Diamond', 'Custom026!', ll_parent)
//
//ll_parent = uo_xplistbar.of_AddGroup('Header with really long title', '', uo_xplistbar.NOARROW)
//uo_xplistbar.of_AddLabel('Sample label that is long and contains no carriage returns', '', ll_parent)
//uo_xplistbar.of_AddLabel('Multi-line~r~nsample label', '', ll_parent)
//
This.Post Event ue_post_open()
Show()

end event

event timer;uo_statusbar.Event ue_RefreshStatusBar(3)
end event

type mdi_1 from mdiclient within w_sysmain
long BackColor=268435456
end type

type p_1 from picture within w_sysmain
integer x = 3113
integer width = 576
integer height = 192
boolean border = true
boolean focusrectangle = false
end type

type uo_statusbar from u_statusbar within w_sysmain
integer x = 992
integer y = 444
integer taborder = 40
string libraryname = "comctl32.dll"
end type

event size;call super::size;Constant Integer ACTIVITYWIDTH = 105
//Constant Integer DATETIMEWIDTH = 135
Constant Integer DATETIMEWIDTH = 180
//Constant Integer SERVERNAMEWIDTH = 185
Constant Integer SERVERNAMEWIDTH = 130


Long ll_width
Long ll_part[]


// Get the width of the window in pixels.
ll_width = UnitsToPixels(this.Width, XUnitsToPixels!)

// Determine the width remaining.
ll_width = (ll_width - (ACTIVITYWIDTH + SERVERNAMEWIDTH + DATETIMEWIDTH))

// Assign individual part sizes.
ll_part[1] = ll_width
ll_part[2] = ll_part[1] + ACTIVITYWIDTH
ll_part[3] = ll_part[2] + SERVERNAMEWIDTH
ll_part[4] = ll_part[3] + DATETIMEWIDTH

// Set the parts of the statusbar.
this.of_SetParts(ll_part)
end event

event constructor;call super::constructor;// Load icons.
il_hicons[1] = this.of_LoadIcon('time.ico')
il_hicons[2] = this.of_LoadIcon('contact.ico')
il_hicons[3] = this.of_LoadIcon('server.ico')


end event

event ue_timer;call super::ue_timer;// Refresh the current time.
this.Event ue_RefreshStatusBar(3)
end event

event ue_refreshstatusbar;call super::ue_refreshstatusbar;Long ll_hicon

String ls_text


Choose Case ai_part
	Case 0
		// Get the current microhelp.
		ls_text = this.of_GetText(0)
		
		// If the microhelp is empty then use the default.
		If IsNull(ls_text) OR Len(Trim(ls_text)) = 0 Then
			ls_text = 'Ready'
		End If

	Case 1
		// Refresh the current accumulated case time.
		ls_text = 'Activity: 1h 3m'
		ll_hicon = il_hicons[1]

	Case 2
		// Refresh the current server connection.
		ls_text = 'Usuario: ' + upper(gs_iduser )//gs_usuario
		ll_hicon = il_hicons[2]

	Case 3
		// Refresh the current time.
		ll_hicon = il_hicons[3]
		ls_text = gs_server+'/'+gs_Database
		//(String(DateTime(Today(), Now()), "yyyy-mm-dd  h:mm AM/PM;'none'"))
End Choose

// Set the text for a requested segment.
this.of_SetText(ai_part, 0, ls_text)

// Set the icon for a requested segment.
If ll_hicon > 0 Then this.of_SetIcon(ai_part, ll_hicon)
end event

event ue_doubleclicked;call super::ue_doubleclicked;// Trigger event on tab control.
If ai_part = 1 Then
	MessageBox('Statusbar ', 'Part 1 has been clicked!')
End if
end event

type uo_treeview from u_cst_treeview within w_sysmain
integer x = 9
integer y = 228
integer width = 585
integer height = 1504
integer taborder = 40
end type

on uo_treeview.destroy
call u_cst_treeview::destroy
end on

event resize;call super::resize;tv_main.width  =newwidth
tv_main.height =newheight - 100
end event

event constructor;call super::constructor;this.of_loadmenu( '')
end event

type uo_toolbarstrip from u_cst_toolbarstrip within w_sysmain
event destroy ( )
integer x = 5
integer width = 3662
integer taborder = 20
long il_currentstyle = 2
end type

on uo_toolbarstrip.destroy
call u_cst_toolbarstrip::destroy
end on

event constructor;call super::constructor;//this.of_AddItem('Print Setup', 'printer_add','Login')
//this.of_AddItem('Print','..\IMG\ICONS\printer.png','Print')
this.of_AddItem('Print Setup','..\IMG\ICONS\printer_add.png','Print Setup')
this.of_AddItem('Exit','Exit!','Exit')


//this.of_AddItem('Expandir','..\IMG\ICO\Refresh.ico','Refrescar Menu')
//this.of_AddItem('Conllapse','..\IMG\ICO\Refresh.ico','Refrescar Menu')

//ue_collapse_all

of_DisplayRaisedBorder(TRUE)
//this.of_setsize( this.medium)
//this.visible=false
//this.of_AddItem('Grabar', 'Save!')
//this.of_setenabled('Grabar', false)

//this.of_AddItem('Cancelar', 'Undo!')
//this.of_AddItem('Salir', 'Exit!')
this.of_DisplayText(true)


end event

event ue_buttonclicked;call super::ue_buttonclicked;// process buttons
choose case Upper(as_button)
	
	case 'REFRESCAR MENU' 
		uo_treeview.of_loadmenu('')
		uo_treeview.tv_main.event ue_gmenu()
	CASE 'EXIT'	
		if F_MSG('Esta seguro que desea salir?',2)=2 then return
			Close(Parent)
	case 'PRINT SETUP'
		printsetup()
		
		//tv_main.DeleteItem(il_nodo)
		//tv_main.ExpandItem ( il_nodo ) 
	case 'LOGIN'
		OPEN(W_LOGON)
		
		
end choose


end event

event ue_mousemove;call super::ue_mousemove;Parent.SetMicroHelp("Mouse moved over " + as_button)

end event

type uo_powerdock from u_cst_powerdock within w_sysmain
integer x = 5
integer y = 112
integer width = 585
integer height = 112
integer taborder = 20
end type

on uo_powerdock.destroy
call u_cst_powerdock::destroy
end on

event panelexpanded;call super::panelexpanded;//Parent.SetMicroHelp("Panel Expanded " + String(panel))
end event

event panelpinned;call super::panelpinned;//Parent.SetMicroHelp("Panel Pinned " + String(panel))
end event

event panelobjectdisplayed;call super::panelobjectdisplayed;//Parent.SetMicroHelp("Panel Object Displayed " + String(panelobject.classname()))
end event

event documentselectionchanged;call super::documentselectionchanged;//Parent.SetMicroHelp("Document Selection Changed " + String(document))
end event

event panelunpinned;call super::panelunpinned;//Parent.SetMicroHelp("Panel UnPinned " + String(panel))
end event

type ddlb_theme from dropdownlistbox within w_sysmain
integer x = 1765
integer width = 425
integer height = 364
integer taborder = 20
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
string item[] = {"Blue","Silver","Olive","Classic"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;String ls_color

ls_color = Upper(this.Text(index))

uo_PowerDock.of_SetTheme(ls_color)
uo_toolbarstrip.of_SetTheme(ls_color)
//uo_xplistbar.of_SetTheme(ls_color)

//IF IsValid(iuo_1) THEN
//	iuo_1.of_SetTheme(ls_color)
//	iuo_2.of_SetTheme(ls_color)
//	iuo_3.of_SetTheme(ls_color)
//	iuo_4.of_SetTheme(ls_color)
//	iuo_5.of_SetTheme(ls_color)
//	iuo_7.of_SetTheme(ls_color)
//	iuo_6.of_SetTheme(ls_color)
//END IF
end event

